home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / FORTRAN / 3017.ZIP / TGBIOS1.FOR < prev    next >
Text File  |  1988-09-22  |  341b  |  25 lines
  1.       PROGRAM TGBIOS1
  2. C
  3.       EXTERNAL DGBIOS
  4.       INTEGER*2 IAH,IAL,ICX,IDX
  5. C
  6.       IAH=0
  7.       IAL=6
  8.       CALL DGBIOS(IAH,IAL,ICX,IDX)
  9. C
  10.       IAH=12
  11.       IAL=15
  12.       DO 10 J=1,200
  13.       DO 10 I=1,200
  14.       ICX=3*(J-1)
  15.       IDX=I-1
  16.       CALL DGBIOS(IAH,IAL,ICX,IDX)
  17.  10   CONTINUE
  18. C
  19.       STOP
  20.       END
  21.  
  22.  
  23.  
  24.  
  25.